#Quinn and Hauenstein (2023) Replication

library(readxl)
library(tidyverse)
library(pdftools)
library(stringr)
library(MASS)
library(scales)
library(zoo)

root <- "G:/My Drive/CW Temp/Replication"
setwd(root)
dir.create(file.path(root, "Images"), showWarnings = FALSE)
imdir <- "Images"

# Fig 1, 2, and 5
source("Fig_1_2_5.R")

# Fig 3, 6
source("Fig_3_6.R")

# Fig 4
source("Fig_4.R")

# Fig 7 and 8
source("Fig_7_8.R")